home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / comm / bbs / FList_200.lha / FList / Install-FList < prev    next >
Text File  |  1996-05-20  |  6KB  |  265 lines
  1. ;
  2. ; $PROJECT: FList v2.0 - (c) S.Gillibrand 1996
  3. ;
  4.  
  5. (working "\nFList v2.0 - © Digital Design ® 1994-1996")
  6.  
  7. (complete 0)
  8.  
  9. (message "\n\n"
  10.          "-+- Digital Design Production 1996 -+-\n\n"
  11.          " The author doesn't in any way endorse\n"
  12.          " the unlawful use of CON: windows...\n\n"
  13.          "-+- Digital Design Production 1996 -+-"
  14. )
  15.  
  16. (run "type flist.txt >CON://640//<*> Digital Dreams Amiga 44-1772-454995 <*>/CLOSE/WAIT")
  17.  
  18. (message "\n\n"
  19.          "-+- Digital Design Production 1996 -+-\n\n"
  20.          " This installer gives you the option\n"
  21.          " to edit your config files for ease of use\n\n"
  22.          "-+- Digital Design Production 1996 -+-"
  23. )
  24.  
  25. (complete 3)
  26.  
  27. (message "\n\n"
  28.          "-+- Digital Design Production 1996 -+-\n\n"
  29.          " Please Note: FList expects to find a FILE:\n"
  30.          " assign pointing to your filebase dir/volume\n"
  31.          " e.g. Assign FILE: BBS:Files/FileBase\n\n"
  32.          "-+- Digital Design Production 1996 -+-"
  33. )
  34.  
  35. (complete 5)
  36.  
  37. (set rexxdir
  38.           (askdir
  39.                      (prompt "Where is your BBS Rexx Directory located?")
  40.                      (help @askdir-help)
  41.                      (default "BBS:Rexx")
  42.           )
  43. )
  44.  
  45. (complete 10)
  46.  
  47. (set docsdir
  48.           (askdir
  49.                      (prompt "Where is your BBS Docs Directory located?")
  50.                      (help @askdir-help)
  51.                      (default "BBS:Docs")
  52.           )
  53. )
  54.  
  55. (complete 15)
  56.  
  57. (set bindir
  58.           (askdir
  59.                      (prompt "Where is your BBS Bin Directory located?")
  60.                      (help @askdir-help)
  61.                      (default "BBS:Bin")
  62.           )
  63. )
  64.  
  65. (complete 20)
  66.  
  67. (set cfgdir
  68.           (askdir
  69.                      (prompt "Where is your BBS Configs Directory located?")
  70.                      (help @askdir-help)
  71.                      (default "BBS:Configs")
  72.           )
  73. )
  74.  
  75. (complete 25)
  76.  
  77. (set txtdir
  78.           (askdir
  79.                      (prompt "Where is your BBS Text Directory located?")
  80.                      (help @askdir-help)
  81.                      (default "BBS:Text")
  82.           )
  83. )
  84.  
  85. (complete 30)
  86.  
  87.                      (copyfiles (source "rexx") (dest (rexxdir)) (all))
  88.                      (copyfiles (source "docs") (dest (docsdir)) (all))
  89.                      (copyfiles (source "bin") (dest (bindir)) (all))
  90.                      (copyfiles (source "configs") (dest (cfgdir)) (all))
  91.                      (copyfiles (source "text") (dest (txtdir)) (all))
  92.  
  93. (complete 50)
  94.  
  95. (message "\n\n Now take a >GOOD< look at the docs please =)")
  96.                      (run "c/guide docs/flist.guide")
  97.  
  98. (complete 55)
  99.  
  100. (message "Please edit File.Rx to include an entry for FList:\n\n"
  101.             "F FList              10 -------- FList.Trans"
  102.             "\n\n ** OR **\n\n"
  103.             "F FList              10 -------- FListLoad.Trans\n"
  104.             "\nIf you have a slower machine (e.g. A500/A600/<14mhz)\n\n"
  105.             "You MAY also include lines for REMARKING and CDROM\n\n"
  106.             "! Remark Files       10 -------- FListRemark.Trans\n"
  107.             "Z CDRom Subsystem    10 -------- FListCD.Trans\n"
  108. )
  109.  
  110. (set edline
  111.     (askstring
  112.         (prompt "\nPlease Enter Command Line To Execute\n")
  113.         (help "")
  114.         (default "ced BBS:Configs/file.rx")
  115.     )
  116. )
  117.  
  118.                      (run edline)
  119.  
  120. (message "Please edit Download.Trans to include an entry for FList:\n\n"
  121.             "call 'bbs:rexx/FListDelMrk.Trans\n"
  122. )
  123.  
  124. (set edline
  125.     (askstring
  126.         (prompt "\nPlease Enter Command Line To Execute\n")
  127.         (help "")
  128.         (default "ced BBS:rexx/download.trans")
  129.     )
  130. )
  131.  
  132.                      (run edline)
  133.  
  134. (message "Please edit Logon.Trans to include an entry for FList:\n\n"
  135.             "call 'bbs:rexx/FListChkMrk.Trans\n"
  136. )
  137.  
  138. (set edline
  139.     (askstring
  140.         (prompt "\nPlease Enter Command Line To Execute\n")
  141.         (help "")
  142.         (default "ced BBS:rexx/logon.trans")
  143.     )
  144. )
  145.  
  146.                      (run edline)
  147.  
  148. (complete 60)
  149.  
  150. (message "\n\n Please edit File.Cmds to remove entry for\n"
  151.             "standard TransAmiga filelister:\n\n"
  152.             "e.g.\n\n"
  153.             ". List Files             256 --------"
  154. )
  155. (set edline
  156.     (askstring
  157.         (prompt "\nPlease Enter Command Line To Execute\n")
  158.         (help "")
  159.         (default "ced BBS:Configs/file.cmds")
  160.     )
  161. )
  162.  
  163.                      (run edline)
  164.  
  165. (complete 65)
  166.  
  167. (message "\n\n Please edit FList.Cfg and alter the\n"
  168.             "variables to suite your needs:\n\n"
  169.             "Read the [FList.Cfg File] tag in the AmigaGuide\n"
  170.             "documentation file for more information\n"
  171. )
  172. (set edline
  173.     (askstring
  174.         (prompt "\nPlease Enter Command Line To Execute\n")
  175.         (help "")
  176.         (default "ced BBS:Configs/FList.Cfg")
  177.     )
  178. )
  179.  
  180.                      (run edline)
  181.  
  182. (complete 70)
  183.  
  184. (message "\n\n Please edit FList.TRS to suite your needs\n\n"
  185.             "The purpose of this file is the contents are\n"
  186.             "placed at the top of the script that gets\n"
  187.             "executed when using the [Z] option to CLI operate\n"
  188.             "on a file."
  189. )
  190. (set edline
  191.     (askstring
  192.         (prompt "\nPlease Enter Command Line To Execute\n")
  193.         (help "")
  194.         (default "ced BBS:Configs/FList.TRS")
  195.     )
  196. )
  197.  
  198.                      (run edline)
  199.  
  200. (complete 75)
  201.  
  202. (message "\n\n Now edit your File.Cfg and find an area\n"
  203.             "ALL users have READ&DOWNLOAD Access to,\n\n"
  204.             "Remember the path of this area and change it to\n"
  205.             "FLIST:, save the File.Cfg file and exit.\n"
  206. )
  207. (set edline
  208.     (askstring
  209.         (prompt "\nPlease Enter Command Line To Execute\n")
  210.         (help "")
  211.         (default "ced BBS:Configs/File.Cfg")
  212.     )
  213. )
  214.  
  215.                      (run edline)
  216.  
  217. (complete 80)
  218.  
  219. (set origpath
  220.     (askdir
  221.         (prompt "\nPlease Choose The Path Of The\n"
  222.                 " Area You Just Altered:")
  223.         (help "")
  224.         (default "File:")
  225.     )
  226. )
  227.  
  228. (complete 85)
  229.  
  230. (startup "FList - (c) S.Gillibrand 1996 - Digital Design"
  231.     (help "")
  232.     (prompt "An assignment has to be added to your user-startup.")
  233.     (command "Assign FLIST: \"" origpath "\"")
  234. )
  235.  
  236. (complete 90)
  237.  
  238. (makeassign "FLIST" origpath)
  239.  
  240. (message "\n"
  241.          "Now the IceArc distribution will be extracted...\n"
  242.          "Please use the IceArc installation straight away!\n"
  243.          "\n"
  244. )
  245. (set edline
  246.     (askstring
  247.         (prompt "\nPlease Enter Command Line To Execute\n")
  248.         (help "")
  249.         (default "lha x bonus/IceArc12.lha ram:")
  250.     )
  251. )
  252.  
  253.                      (run edline)
  254.  
  255. (complete 100)
  256.  
  257. (message "\n\n"
  258.          "-+- Digital Design Production 1996 -+-\n\n"
  259.          " FList v2.0 is now installed!\n"
  260.          " Be sure to enjoy =)\n\n"
  261.          "-+- Digital Design Production 1996 -+-"
  262. )
  263.  
  264. (exit (quiet))
  265.